home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 51 / 051.d81 / total boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  83 lines
  1. 1 ifa=1then710
  2. 2 poke53280,.:poke53281,.
  3. 10 print"[147]"
  4. 20 print"10 [152]REM'       [158]LOADSTAR [156]Presents"
  5. 30 print"15 [152]REM'"
  6. 40 print"20 [152][210][197][205]'      [149][212] [207][160][212] [193] [204]   [204] [201] [211] [212]"
  7. 50 print"25 [152][210][197][205]'      [155][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  8. 60 print"30 [152]REM'"
  9. 70 print"35 [152][210][197][205]'      [159][194]y [194]ret [205]. [212]immins"
  10. 80 print"40 [152]REM'"
  11. 90 print"45 [152]REM'       [150](C)opyright 1988"
  12. 100 print"50 [152]REM'"
  13. 110 print"55 [152]REM'"
  14. 120 print"60 [152][210][197][205]' [160] [208]ress any key to continue"
  15. 130 print"65 [152]REM'"
  16. 140 print"70 [152]GETA$:IFA$=''THEN70"
  17. 150 print"75 [152]PRINT'Shne[146]'"
  18. 160 print"80 [152]PRINT'qqqqqqqqqqqqqqq]]]]]]]]]]]][146]';"
  19. 170 print"85 [152]PRINT' Please wait while loading...'"
  20. 180 print"90 [152]REM"
  21. 190 print"95 [152]LOAD'total list.ml',8,1"
  22. 200 print
  23. 210 print
  24. 220 print"ready."
  25. 230 print"run"
  26. 240 print
  27. 250 print" [208]ress any key when ready to continue"
  28. 260 geta$:ifa$=""then260
  29. 270 print"[147]"
  30. 280 print"          [149][212] [207] [212] [193] [204]   [204] [201] [211] [212]"
  31. 290 print"          [152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  32. 300 print
  33. 310 print"  [154]To use total list you must be in"
  34. 320 print"direct mode of [194][193][211][201][195].  [201]f you choose"
  35. 330 print"to activate TOTAL LIST [154]you will have"
  36. 340 print"to reboot [158]LOADSTAR [154]to get back to main"
  37. 350 print"menu."
  38. 360 print
  39. 370 print" [159]Do you wish to activate TOTAL LIST?"
  40. 380 print
  41. 390 print"            [153]Y)es OR N)o"
  42. 400 print
  43. 410 geta$:ifa$=""then410
  44. 420 ifa$="y"ora$="[217]"then460
  45. 430 ifa$="n"ora$="[206]"then440
  46. 431 goto 410
  47. 440 open15,8,15,"r0:hello connect=hello connect":input#15,er,er$:close15
  48. 441 ifer<>63thenprint"[147]":end
  49. 445 load"hello connect",8,1
  50. 450 rem
  51. 460 print"[147]"
  52. 470 print"          [149][212] [207] [212] [193] [204]   [204] [201] [211] [212]"
  53. 480 print"          [152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  54. 490 print
  55. 500 print"   [155]Commands:"
  56. 510 print
  57. 520 print"    [159]CTRL[151]/[159]F7  [155]--  Scroll Forward"
  58. 530 print"    [159]CTRL[151]/[159]F5  [155]--  Scroll Backward"
  59. 540 print"    [159]JOYSTICK [155]--  Scroll Up or Down"
  60. 550 print
  61. 560 print"[153][160]   [159]CTRL[151]/[159]+   [155]--  Forward 1 Page"
  62. 570 print"    [159]CTRL[151]/[159]-   [155]--  Backward 1 Page"
  63. 580 print
  64. 590 print"    [159]CTRL[151]/[159]I   [155]--  Insert Blank Line"
  65. 600 print
  66. 610 print"    [159]CTRL[151]/[159]X   [155]--  Disable TOTAL LIST"
  67. 620 print" [159]SYS 50200   [155]--  Reactivate TOTAL LIST"
  68. 630 print
  69. 640 print"[129][206][207][212][197] [150]: [212][207][212][193][204] [204][201][211][212] [154]should be disabled"
  70. 650 print"[152][163][163][163][163]   [154]before [207][208][197][206][154]ing a channel"
  71. 660 print"       to a printer or disk drive."
  72. 670 print
  73. 680 print"[208]ress any key when ready to continue"
  74. 690 geta$:ifa$=""then690
  75. 700 print"[147][208]lease wait while loading..."
  76. 705 a=1:load"total list.o",8,1
  77. 710 print"[147][212][207][212][193][204] [204][201][211][212] [193]ctivated"
  78. 719 print"[196][207][206]'[212] [198][207][210][199][197][212]...[154][217]ou must deactivate
  79. 720 [153]"(NULL)(NULL)(NULL)atn(NULL) (NULL)right$(NULL)(NULL) before rebooting sys(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  80. 721 print"[154]by resetting your computer or by
  81. 722 [153]"pressing 'len(NULL)(NULL)(NULL)-(NULL)'.
  82. 740 sys50200
  83.